home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 4 / Mac Giga-ROM 4.0 - 1993.toast / FILES / HYP / H-I / HyperScrap.cpt / HyperScrap / card_4366.txt < prev    next >
Text File  |  1989-01-09  |  1KB  |  69 lines
  1. -- card: 4366 from stack: in
  2. -- bmap block id: 4790
  3. -- flags: 4000
  4. -- background id: 2715
  5. -- name: Fields
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hide card button "Paste"
  9. end closeCard
  10.  
  11. on openCard
  12.   choose browse tool
  13. end openCard
  14.  
  15.  
  16.  
  17. -- part 13 (button)
  18. -- low flags: 80
  19. -- high flags: 0000
  20. -- rect: left=0 top=1 right=306 bottom=492
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 1
  24. -- font id: 0
  25. -- text size: 12
  26. -- style flags: 0
  27. -- line height: 16
  28. -- part name: Paste
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   choose field tool
  32.   click at the clickLoc
  33.   doMenu "Copy Field"
  34.   if the result is not empty then
  35.     answer "Please click on a field..." with "OK"
  36.     exit mouseUp
  37.   end if
  38.   hide me
  39.   pop card
  40.   doMenu "Paste Button"
  41. end mouseUp
  42.  
  43.  
  44.  
  45. -- part 15 (field)
  46. -- low flags: 00
  47. -- high flags: 0000
  48. -- rect: left=117 top=36 right=61 bottom=394
  49. -- title width / last selected line: 0
  50. -- icon id / first selected line: 0 / 0
  51. -- text alignment: 1
  52. -- font id: 20
  53. -- text size: 18
  54. -- style flags: 0
  55. -- line height: 24
  56. -- part name: 
  57.  
  58.  
  59. -- part contents for card part 14
  60. ----- text -----
  61.  
  62.  
  63.  
  64.  
  65.  
  66. -- part contents for card part 16
  67. ----- text -----
  68. Cool Backround
  69. Globe